Option Explicit
'OҲAppEventCls
Public WithEvents myApp As Application

Private Sub myApp_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    MsgBox Sh.Name & "" & Target.SubAddress & "cWsC by Application"
End Sub

'зǼҲ
Dim myAppCls As New AppEventCls
Sub InitializeAppEvent()
  Set myAppCls.myApp = Application
End Sub
